home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / tex / texsrc.arc / TEX8.C < prev    next >
C/C++ Source or Header  |  1988-09-14  |  56KB  |  2,235 lines
  1. overlay "tex8"
  2. #define EXTERN extern
  3. #include "texd.h"
  4.  
  5. mathlimitswi () { /* 10 */ r_mathlimitswi 
  6.   if ( curlist .headfield != curlist .tailfield ) 
  7.   if ( mem [(long) curlist .tailfield ] .hh.b0 == 17 ) 
  8.   {
  9.     mem [(long) curlist .tailfield ] .hh.b1 = curchr ; 
  10.     return ; 
  11.   } 
  12.   {
  13.     if ( interaction == 3 ) 
  14.     wakeuptermin () ; 
  15.     printnl ( 133 ) ; 
  16.     print ( 978 ) ; 
  17.   } 
  18.   {
  19.     helpptr = 1 ; 
  20.     helpline [ 0 ] = 979 ; 
  21.   } 
  22.   error () ; 
  23. } 
  24. zscandelimite ( p , r ) 
  25. halfword p ; 
  26. boolean r ; 
  27. {r_scandelimite 
  28.   if ( r ) 
  29.   scantwentyse () ; 
  30.   else { 
  31.     do { getxtoken () ; 
  32.     } while ( ! ( ( curcmd != 10 ) && ( curcmd != 0 ) ) ) ; 
  33.     switch ( curcmd ) 
  34.     {case 11 : 
  35.     case 12 : 
  36.       curval = eqtb [ 5573 + curchr ] .cint ; 
  37.       break ; 
  38.     case 15 : 
  39.       scantwentyse () ; 
  40.       break ; 
  41.     default : 
  42.       curval = - 1 ; 
  43.       break ; 
  44.     } 
  45.   } 
  46.   if ( curval < 0 ) 
  47.   {
  48.     {
  49.       if ( interaction == 3 ) 
  50.       wakeuptermin () ; 
  51.       printnl ( 133 ) ; 
  52.       print ( 980 ) ; 
  53.     } 
  54.     {
  55.       helpptr = 6 ; 
  56.       helpline [ 5 ] = 981 ; 
  57.       helpline [ 4 ] = 982 ; 
  58.       helpline [ 3 ] = 983 ; 
  59.       helpline [ 2 ] = 984 ; 
  60.       helpline [ 1 ] = 985 ; 
  61.       helpline [ 0 ] = 986 ; 
  62.     } 
  63.     backerror () ; 
  64.     curval = 0 ; 
  65.   } 
  66.   mem [(long) p ] .qqqq .b0 = ( curval / 1048576 ) % 16 ; 
  67.   mem [(long) p ] .qqqq .b1 = ( curval / 4096 ) % 256 ; 
  68.   mem [(long) p ] .qqqq .b2 = ( curval / 256 ) % 16 ; 
  69.   mem [(long) p ] .qqqq .b3 = curval % 256 ; 
  70. } 
  71. mathradical () { r_mathradical 
  72.   {
  73.     mem [(long) curlist .tailfield ] .hh .v.RH = getnode ( 5 ) ; 
  74.     curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  75.   } 
  76.   mem [(long) curlist .tailfield ] .hh.b0 = 24 ; 
  77.   mem [(long) curlist .tailfield ] .hh.b1 = 0 ; 
  78.   mem [(long) curlist .tailfield + 1 ] .hh = emptyfield ; 
  79.   mem [(long) curlist .tailfield + 3 ] .hh = emptyfield ; 
  80.   mem [(long) curlist .tailfield + 2 ] .hh = emptyfield ; 
  81.   scandelimite ( curlist .tailfield + 4 , true ) ; 
  82.   scanmath ( curlist .tailfield + 1 ) ; 
  83. } 
  84. mathac () { r_mathac 
  85.   if ( curcmd == 45 ) 
  86.   {
  87.     {
  88.       if ( interaction == 3 ) 
  89.       wakeuptermin () ; 
  90.       printnl ( 133 ) ; 
  91.       print ( 987 ) ; 
  92.     } 
  93.     printesc ( 382 ) ; 
  94.     print ( 988 ) ; 
  95.     {
  96.       helpptr = 2 ; 
  97.       helpline [ 1 ] = 989 ; 
  98.       helpline [ 0 ] = 990 ; 
  99.     } 
  100.     error () ; 
  101.   } 
  102.   {
  103.     mem [(long) curlist .tailfield ] .hh .v.RH = getnode ( 5 ) ; 
  104.     curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  105.   } 
  106.   mem [(long) curlist .tailfield ] .hh.b0 = 28 ; 
  107.   mem [(long) curlist .tailfield ] .hh.b1 = 0 ; 
  108.   mem [(long) curlist .tailfield + 1 ] .hh = emptyfield ; 
  109.   mem [(long) curlist .tailfield + 3 ] .hh = emptyfield ; 
  110.   mem [(long) curlist .tailfield + 2 ] .hh = emptyfield ; 
  111.   mem [(long) curlist .tailfield + 4 ] .hh .v.RH = 1 ; 
  112.   scanfifteenb () ; 
  113.   mem [(long) curlist .tailfield + 4 ] .hh.b1 = curval % 256 ; 
  114.   if ( ( curval >= 28672 ) && ( ( eqtb [ 5311 ] .cint >= 0 ) && ( eqtb [ 5311 
  115.   ] .cint < 16 ) ) ) 
  116.   mem [(long) curlist .tailfield + 4 ] .hh.b0 = eqtb [ 5311 ] .cint ; 
  117.   else mem [(long) curlist .tailfield + 4 ] .hh.b0 = ( curval / 256 ) % 16 ; 
  118.   scanmath ( curlist .tailfield + 1 ) ; 
  119. } 
  120. appendchoice () { r_appendchoice 
  121.   {
  122.     mem [(long) curlist .tailfield ] .hh .v.RH = newchoice () ; 
  123.     curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  124.   } 
  125.   incr ( saveptr ) ; 
  126.   savestack [ saveptr - 1 ] .cint = 0 ; 
  127.   scanleftbrac () ; 
  128.   pushmath ( 13 ) ; 
  129. } 
  130. halfword zfinmlist ( p ) 
  131. halfword p ; 
  132. {register halfword Result; r_finmlist 
  133.   halfword q ; 
  134.   if ( curlist .auxfield != 0 ) 
  135.   {
  136.     mem [(long) curlist .auxfield + 3 ] .hh .v.RH = 3 ; 
  137.     mem [(long) curlist .auxfield + 3 ] .hh .v.LH = mem [(long) curlist .headfield ] .hh 
  138.     .v.RH ; 
  139.     if ( p == 0 ) 
  140.     q = curlist .auxfield ; 
  141.     else { 
  142.       q = mem [(long) curlist .auxfield + 2 ] .hh .v.LH ; 
  143.       if ( mem [(long) q ] .hh.b0 != 30 ) 
  144.       confusion ( 730 ) ; 
  145.       mem [(long) curlist .auxfield + 2 ] .hh .v.LH = mem [(long) q ] .hh .v.RH ; 
  146.       mem [(long) q ] .hh .v.RH = curlist .auxfield ; 
  147.       mem [(long) curlist .auxfield ] .hh .v.RH = p ; 
  148.     } 
  149.   } 
  150.   else { 
  151.     mem [(long) curlist .tailfield ] .hh .v.RH = p ; 
  152.     q = mem [(long) curlist .headfield ] .hh .v.RH ; 
  153.   } 
  154.   popnest () ; 
  155.   Result = q ; 
  156.   return(Result) ; 
  157. } 
  158. buildchoices () { /* 10 */ r_buildchoices 
  159.   halfword p ; 
  160.   unsave () ; 
  161.   p = finmlist ( 0 ) ; 
  162.   switch ( savestack [ saveptr - 1 ] .cint ) 
  163.   {case 0 : 
  164.     mem [(long) curlist .tailfield + 1 ] .hh .v.LH = p ; 
  165.     break ; 
  166.   case 1 : 
  167.     mem [(long) curlist .tailfield + 1 ] .hh .v.RH = p ; 
  168.     break ; 
  169.   case 2 : 
  170.     mem [(long) curlist .tailfield + 2 ] .hh .v.LH = p ; 
  171.     break ; 
  172.   case 3 : 
  173.     {
  174.       mem [(long) curlist .tailfield + 2 ] .hh .v.RH = p ; 
  175.       decr ( saveptr ) ; 
  176.       return ; 
  177.     } 
  178.     break ; 
  179.   } 
  180.   incr ( savestack [ saveptr - 1 ] .cint ) ; 
  181.   scanleftbrac () ; 
  182.   pushmath ( 13 ) ; 
  183. } 
  184. subsup () { r_subsup 
  185.   smallnumber t ; 
  186.   halfword p ; 
  187.   t = 0 ; 
  188.   p = 0 ; 
  189.   if ( curlist .tailfield != curlist .headfield ) 
  190.   if ( ( mem [(long) curlist .tailfield ] .hh.b0 >= 16 ) && ( mem [(long) curlist 
  191.   .tailfield ] .hh.b0 < 30 ) ) 
  192.   {
  193.     p = curlist .tailfield + 2 + curcmd - 7 ; 
  194.     t = mem [(long) p ] .hh .v.RH ; 
  195.   } 
  196.   if ( ( p == 0 ) || ( t != 0 ) ) 
  197.   {
  198.     {
  199.       mem [(long) curlist .tailfield ] .hh .v.RH = newnoad () ; 
  200.       curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  201.     } 
  202.     p = curlist .tailfield + 2 + curcmd - 7 ; 
  203.     if ( t != 0 ) 
  204.     {
  205.       if ( curcmd == 7 ) 
  206.       {
  207.     {
  208.       if ( interaction == 3 ) 
  209.       wakeuptermin () ; 
  210.       printnl ( 133 ) ; 
  211.       print ( 991 ) ; 
  212.     } 
  213.     {
  214.       helpptr = 1 ; 
  215.       helpline [ 0 ] = 992 ; 
  216.     } 
  217.       } 
  218.       else { 
  219.     {
  220.       if ( interaction == 3 ) 
  221.       wakeuptermin () ; 
  222.       printnl ( 133 ) ; 
  223.       print ( 993 ) ; 
  224.     } 
  225.     {
  226.       helpptr = 1 ; 
  227.       helpline [ 0 ] = 994 ; 
  228.     } 
  229.       } 
  230.       error () ; 
  231.     } 
  232.   } 
  233.   scanmath ( p ) ; 
  234. } 
  235. mathfraction () { r_mathfraction 
  236.   smallnumber c ; 
  237.   c = curchr ; 
  238.   if ( curlist .auxfield != 0 ) 
  239.   {
  240.     if ( c >= 3 ) 
  241.     {
  242.       scandelimite ( memtop - 12 , false ) ; 
  243.       scandelimite ( memtop - 12 , false ) ; 
  244.     } 
  245.     if ( c % 3 == 0 ) 
  246.     scandimen ( false , false , false ) ; 
  247.     {
  248.       if ( interaction == 3 ) 
  249.       wakeuptermin () ; 
  250.       printnl ( 133 ) ; 
  251.       print ( 1001 ) ; 
  252.     } 
  253.     {
  254.       helpptr = 3 ; 
  255.       helpline [ 2 ] = 1002 ; 
  256.       helpline [ 1 ] = 1003 ; 
  257.       helpline [ 0 ] = 1004 ; 
  258.     } 
  259.     error () ; 
  260.   } 
  261.   else { 
  262.     curlist .auxfield = getnode ( 6 ) ; 
  263.     mem [(long) curlist .auxfield ] .hh.b0 = 25 ; 
  264.     mem [(long) curlist .auxfield ] .hh.b1 = 0 ; 
  265.     mem [(long) curlist .auxfield + 2 ] .hh .v.RH = 3 ; 
  266.     mem [(long) curlist .auxfield + 2 ] .hh .v.LH = mem [(long) curlist .headfield ] .hh 
  267.     .v.RH ; 
  268.     mem [(long) curlist .auxfield + 3 ] .hh = emptyfield ; 
  269.     mem [(long) curlist .auxfield + 4 ] .qqqq = nulldelimite ; 
  270.     mem [(long) curlist .auxfield + 5 ] .qqqq = nulldelimite ; 
  271.     mem [(long) curlist .headfield ] .hh .v.RH = 0 ; 
  272.     curlist .tailfield = curlist .headfield ; 
  273.     if ( c >= 3 ) 
  274.     {
  275.       scandelimite ( curlist .auxfield + 4 , false ) ; 
  276.       scandelimite ( curlist .auxfield + 5 , false ) ; 
  277.     } 
  278.     switch ( c % 3 ) 
  279.     {case 0 : 
  280.       {
  281.     scandimen ( false , false , false ) ; 
  282.     mem [(long) curlist .auxfield + 1 ] .cint = curval ; 
  283.       } 
  284.       break ; 
  285.     case 1 : 
  286.       mem [(long) curlist .auxfield + 1 ] .cint = 1073741824 ; 
  287.       break ; 
  288.     case 2 : 
  289.       mem [(long) curlist .auxfield + 1 ] .cint = 0 ; 
  290.       break ; 
  291.     } 
  292.   } 
  293. } 
  294. mathleftrigh () { r_mathleftrigh 
  295.   smallnumber t ; 
  296.   halfword p ; 
  297.   t = curchr ; 
  298.   if ( ( t == 31 ) && ( curgroup != 16 ) ) 
  299.   {
  300.     if ( curgroup == 15 ) 
  301.     {
  302.       scande